home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 2003 August / MW 8 2003 CD1.iso / Inside Macworld / Product News / gimp-1.2.4.sit / gimp-1.2.4 / plug-ins / perl / examples / sethspin < prev    next >
Encoding:
Text File  |  2000-06-06  |  7.8 KB  |  216 lines
  1. #!/usr/app/bin/perl
  2.  
  3. eval 'exec /usr/app/bin/perl  -S $0 ${1+"$@"}'
  4.     if 0; # not running under some shell
  5.  
  6. #
  7. # Note: Seth has transferred the maintainer `position' to me, so bother me
  8. # instead of him now :-)
  9. #       - Steinar H. Gunderson <sgunderson@bigfoot.com>
  10.  
  11.  
  12. # This one's all mine.  Well, its GPL/Artisitic but I'm the author and creator. 
  13. # You need gimp 1.1 or better for this; too much has changed, and I don't think
  14. # 1.0.x had a perspective PDB function anyway 
  15.  
  16. # Here's the working theory on this:
  17. #  There's a function called spinlayer which will spin from a spinlayer to a
  18. #  destlayer.  It won't touch those 2 layers at all, and will leave its results
  19. #  on the top of the layer stack.
  20. #
  21. #  If the user wants to spin back, it will take 1/2 the layers otherwise required
  22. #  per call to the spin_layer, so that the number of total layers comes out the
  23. #  same.  
  24. #
  25. #  The main function makes a new image, copies the source and destination onto it
  26. #  with appropriate offsets, and passes this image with the bottom 2 layers to
  27. #  spin_layer.  At the end, remove the original 2 layers, since they won't be 
  28. #  needed, and add in some Layer comments for timing your gif.
  29. #
  30. ################################################################################
  31. #  Many thanks to Steinar and Marc, for expressing an intrest in the script that
  32. #  kept me going, and to Steinar in particular for helping me track down why the
  33. #  script was crashing gimp (hint - don't make layers of height=0, and if you do
  34. #  make sure you're logging to console since the Gtk messagebox will never show
  35. #  up due to a rapid segfault).
  36. #
  37. #  Just a comment on that: We fixed the bug, so height=0 no longer segfaults, but
  38. #  gives the error message it should. However, if GIMP segfaults, you should try
  39. #  logging to console to make sure you get all applicable error messages. This
  40. #  will make it _much_ easier to find the bug. - Steinar
  41. #
  42. # Revision History:
  43. # 1.0 - Initial (too early) release
  44. # 1.1 - Second (still ugly) release: Made the perspective setting actually do
  45. #       something
  46. # 1.2 - Used some of the convienence functions, and made things a little eaiser
  47. #       from the user's standpoint too.  Also moved it from the 
  48. #       Filters->Animations-> menu to Xtns->Animations.  I think its 
  49. #       clearer whats going on this way.  It also works w/ any 2 layers now.
  50. # 1.5 - Some debugging by Steinar and myself to make it work again.
  51. # 1.6 - Moved some renaming into the main loop, more cleanups.
  52. #
  53. # TODO: Clean it up; allow for other effects (skewing, ripples?) while spinning;        
  54.  
  55. # Seth Burgess
  56. # <sjburges@gimp.org>
  57.  
  58. use Gimp;  # No qw(:auto) - Trying to use all OO-styling
  59. use Gimp::Fu;
  60. use Gimp::Util;
  61.  
  62. # Gimp::set_trace(TRACE_ALL);
  63.  
  64. sub saw {  # a sawtooth function on PI
  65.     ($val) = @_;
  66.     if ($val < 3.14159/2.0) {
  67.         return ($val/3.14159);
  68.     } elsif ($val < 3.14159) {
  69.         return (-1+$val/3.14159); 
  70.     } elsif ($val < 3.14159+3.14159/2.0) {
  71.         return ($val/3.14159);
  72.     } else {
  73.         return (-1+$val/3.14159); 
  74.     }
  75. } 
  76.  
  77. sub spin_layer { # the function for actually spinning the layer
  78.     my ($img, $spin, $dest, $numframes, $prp) = @_;
  79.  
  80.     my $floater,  # The transformed image
  81.        $framelay, # The background color
  82.        $frameno;  # The current frame
  83.  
  84.     # Now let's spin it!
  85.     $stepsize = 3.14159/$numframes; # in radians 
  86.     $frameno = 0;
  87.     for ($i=0; $i<=3.14159; $i+=$stepsize) {
  88.         Gimp->progress_update ($i/3.14159);
  89.  
  90.         # create a new layer for spinning
  91.         $framelay = ($i < 3.14159/2.0) ? $spin->copy(1) : $dest->copy(1);
  92.         $img->add_layer($framelay, 0);
  93.         $floater = $framelay->copy(1);
  94.         $img->add_layer($floater, 0);
  95.  
  96.         # spin it a step
  97.         $img->selection_all();
  98.         @x = $img->selection_bounds();
  99.         $img->selection_none();
  100.  
  101.         # x[1],x[2]                  x[3],x[2]
  102.         # x[1],x[4]                  x[3],x[4]
  103.         my($y1, $y3);
  104.         $y1 = int($x[2]+$spin->height *sin($i)/2);
  105.         $y3 = int($x[4]-$spin->height *sin($i)/2);
  106.  
  107.     # height must be != 0
  108.         $y3++ if ($y1 == $y3);
  109.  
  110.         $floater = Gimp->perspective($floater, 1,
  111.                        $x[1]+saw($i)*$prp*$framelay->width,$y1,  
  112.                        $x[3]-saw($i)*$prp*$framelay->width,$y1,
  113.                        $x[1]-saw($i)*$prp*$framelay->width,$y3,  
  114.                        $x[3]+saw($i)*$prp*$framelay->width,$y3);
  115.         $framelay->fill(1); # BG-IMAGE-FILL
  116.  
  117.     # merge the two layers together before we continue
  118.         $img->set_visible($floater, $framelay);
  119.         $framelay = $img->merge_visible_layers(0);
  120.  
  121.     $frameno++;
  122.     $framelay->set_name("Spin Layer $frameno (50ms)");
  123.     }
  124. }
  125.  
  126. register "seth_spin",
  127.          "Seth Spin",
  128.          "Take one image.  Spin it about the horizontal axis, and end up with another image.  I made it for easy web buttons.",
  129.          "Seth Burgess",
  130.          "Seth Burgess <sjburges\@gimp.org>",
  131.          "1.6",
  132.          N_"<Toolbox>/Xtns/Animation/Seth Spin...",
  133.          "*",
  134.          [
  135.           [PF_DRAWABLE, "source", "What drawable to spin from?"],
  136.           [PF_DRAWABLE, "destination","What drawable to spin to?"],
  137.           [PF_INT8, "frames", "How many frames to use?", 16],
  138.           [PF_COLOR, "background", "What color to use for background if not transparent", [0,0,0]],
  139.           [PF_SLIDER, "perspective", "How much perspective effect to get", 40, [0,255,5]],
  140.           [PF_TOGGLE, "spin_back", "Also spin back?" , 1],
  141.           [PF_TOGGLE, "convert_indexed", "Convert to indexed?", 1],
  142.          ],
  143.          [],
  144.          ['gimp-1.1'],
  145.          sub {
  146.     my($src,$dest,$frames,$color,$perspective,$spinback,$indexed) = @_;
  147.     
  148.     $oldbackground = Gimp->palette_get_background();
  149.     Gimp->palette_set_background($color);
  150.  
  151.     $perspective = $perspective/255.0; # PF_SLIDER doesn't work right for < 1
  152.  
  153.     Gimp->progress_init(__"Seth Spin...",-1);
  154.  
  155.     # Copy souce and destination to new image
  156.     
  157.     $maxwide = ($src->width > $dest->width) ? $src->width : $dest->width;
  158.     $maxhigh = ($src->height > $dest->height) ? $src->height: $dest->height;
  159.  
  160.     $img = Gimp->image_new($maxwide, $maxhigh, RGB);
  161.     $tmpimglayer = $img->add_new_layer(0,3,1); # have to have a layer before displaying
  162.     $img->display_new;
  163.  
  164.     $src->edit_copy();
  165.     $spinlayer = $tmpimglayer->edit_paste(1);
  166.     $spinlayer->floating_sel_to_layer();
  167.  
  168.     $dest->edit_copy();
  169.     $destlayer = $tmpimglayer->edit_paste(1);
  170.     $destlayer->floating_sel_to_layer();
  171.  
  172.     $tmpimglayer->remove_layer;                # remove temporary layer.
  173.  
  174.     # set the layer size to be the full layer for each copied layer
  175.     $spinlayer->resize($maxwide, $maxhigh, $spinlayer->offsets);
  176.     $destlayer->resize($maxwide, $maxhigh, $destlayer->offsets);
  177.  
  178.     # need an even number of frames for spinback
  179.     if ($frames%2 && $spinback) {
  180.         $frames++;
  181.         Gimp->message(__"An even number of frames is needed for spin back.\nAdjusted frames up to $frames");
  182.     }
  183.  
  184.     spin_layer($img, $spinlayer, $destlayer, $spinback ? $frames/2 : $frames, $perspective);
  185.    
  186.     # go back from destination to spinlayer if spinning back 
  187.     if ($spinback) { 
  188.         @layerlist = $img->get_layers();
  189.         spin_layer($img, $destlayer, $spinlayer, $frames/2, $perspective);
  190.     }    
  191.  
  192.     # remove the original 2 pasted layers
  193.     $img->remove_layer($destlayer);
  194.     $img->remove_layer($spinlayer);
  195.  
  196.     # unhide and name layers (Give timings)
  197.     @all_layers = $img->get_layers;
  198.     $img->set_visible(@all_layers);
  199.  
  200.     if ($spinback) {
  201.         $all_layers[$frames/2-1]->set_name(__"Spin Layer DEST (250ms)");
  202.     }
  203.     $all_layers[$frames-1]->set_name(__"Spin Layer SRC (250ms)");  
  204.  
  205.     # indexed conversion wants a display for some reason
  206.     if ($indexed) { 
  207.         $img->convert_indexed(1,MAKE_PALETTE,255,0,1,"buffy" ); 
  208.     } 
  209.  
  210.     Gimp->palette_set_background($oldbackground);
  211.     return();
  212. };
  213.  
  214. exit main;
  215.  
  216.